home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 105
/
105.d81
/
codequest '93
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
759b
|
26 lines
5 dv=peek(186):ifdv<8thendv=8
7 dimw$(300)
10 poke53281,0:poke53280,0:print""
15 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
16 sys52736,"entryform",dv
18 h=peek(252)*256+peek(251)
100 print"[147][158]"tab(7)"[195] [207] [196] [197] [209] [213] [197] [211] [212] ' 9 3
102 [153][163]10)"val (NULL) (NULL) (NULL) (NULL) asc (NULL) (NULL) (NULL)"
104 [153][163]9)"1 cont(NULL)rint entry form
106 printtab(9)"2 [154][210]eturn to [204][207][193][196][211][212][193][210]
110 [161]a$:[139]a$[179]"1"[176]a$[177]"2"[167]110
112 [139]a$[178]"2"[167]40000
120 [153]"open (NULL)et your printer at the top of a
130 print" page and press a key.
135 [161]a$:[139]a$[178]""[167]135
200 [159]4,4,7
210 [129]i[178]0[164]h
220 [152]4," "w$(i)
230 [130]:[160]4
240 [137]100
40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[151]186,dv:[128]
40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]